home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / SHARED.DXR / 04964_objUtil.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  931 b   |  34 lines
  1. global kObjTypeListCastNum, gObjNumList
  2.  
  3. on initObjConst
  4.   set kObjTypeListCastNum to 5000
  5. end
  6.  
  7. on initObjGlobal
  8.   initObjNumList()
  9. end
  10.  
  11. on initObjNumList
  12.   set gObjNumList to [#temp: 0]
  13.   set aCastNum to 0
  14.   set aObjTypeList to the text of cast kObjTypeListCastNum
  15.   repeat with aTypeCount = 1 to the number of lines in aObjTypeList
  16.     set aTypeAndNum to line aTypeCount of aObjTypeList
  17.     if item 2 of aTypeAndNum = "++" then
  18.       set aCastNum to aCastNum + 1
  19.     else
  20.       set aCastNum to integer(item 2 of aTypeAndNum)
  21.     end if
  22.     addProp(gObjNumList, "#" & item 1 of aTypeAndNum, aCastNum)
  23.   end repeat
  24. end
  25.  
  26. on NewObj vObjType, vParam1, vParam2, vParam3
  27.   set aObjTypeCastNum to getaProp(gObjNumList, "#" & vObjType)
  28.   if voidp(aObjTypeCastNum) then
  29.     errorAlert("newObj failed" & RETURN & "Can't find obj type : " & vObjType)
  30.     halt()
  31.   end if
  32.   return birth(script aObjTypeCastNum, vParam1, vParam2, vParam3)
  33. end
  34.